rawdata <- c(55,56,98,100,15,12,33,45,32,67,82,19,25)

#Compute the max
max(rawdata)

#Compute the min
min(rawdata)

#report summary stats
summary(rawdata)

#plot the raw data
plot(rawdata, type="b", xlab="Time in seconds", ylab="CPU Usage")

#plot the max/min/mean lines
abline(h=max(rawdata), v=0)
abline(h=min(rawdata), v=0)
abline(h=mean(rawdata), v=0)

